
o 


ACCOUNTS 
* SYS MAC 
03 


V 4.1 


08/17/74 0453 


FORMFLAG 
ACCWORDS 
LOG 

MESFLAG 
MSFCHRG 
PTPC HRG— 


D AYS CHD 


SHIFTRAT 


•T-PMNTCH6- 
UDHASH 
U OS ELECT 



A 

ABORT-- 

ACCNUM 
A CCPRINT 
A CCS TUFF 
B IT 19 
BIT 2 3 

BUSY.. 

F ASTON 

FINK- 

FLAGS 

FASTTMAX MAX TIME FOR FFASTGA JOB 

•F-ASTMMAX--—-MA X” M F 8‘LKS FQ R “PA'ST"0* "U'OS 

GET8LK 
6ET3UFF 

6TV8UFFP ~ ■ “ 

HIGHHOUR,LOWHOUR 

.HSIIAB ,H SITAELjH s ILOC... 

II 

IOBOUND 

»I"SF'8trKS--—-— 

LPREC 
LPTAB 

I_._g.__. : . 

MACHERR 

MF8LKLIM--——-~ 

MFBLKSMZ 
MSFTIME 

MSWAIT..— —————— 

NMSWAIT 
NSHIFT 

TTORfiTSTS" ■ 

07777777 FOR USE AS ACCMASK 

OP MSG--- 

PLOTREC 

PTPREC i 

RAT ETAS......-.. 

READ 
RF60 

RF77. : .. : ~ .~ 

RPSAPTR 

SCREAM_-a......._ 

SELECT 
SF8LKLIM 

•S-F&fctfS— --—.—..—--—.™ 

SW8IT 
SYSCM 

ST5CGDE ““ “ . r ““~ 

SYSVAL 

T 2 . 

TERMINAL 

*T~fML-I-M---—-...- 

TOTALTIM 
TXTOTAL 

U08ITS ~ ~7 7 - ■ 

UOLENGT H 

USEROIR ---—.-....:. 

USRNUM 
WCTIME 

WRIT E — — —— 

XREOEND 










































CD 


A SSEMBLER/-0S3 VI. 0 09/21/74 2232 PAGE 


accoun rs 



O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

Qa 

o' 

o 9 

cr 


o. 


O' 

4 

a 


0 0 0 0 0 
0 0601 

ITOTOTr 


0 0003 
0 00 04 


0 0 0 05 
0 0 006 


.0T0 07 ’ 


0 0 010 
0 0011 





......71.~.. 

72 

7 3 


.EXT 

EXT 

.Z LIST 

ZLOC 







07773 

07774 

..... .». xj .... 

74 

75 

DINT 

El NT 

EQU 

EQU 

"EQU~ 

EQU 

EQU 

7 773 B 

77743 







0 0 0 0 0 

0 0 0 01 
04000 

.. i o. 

77 

78 

.I MP URL 

PFLOC 

CORE 

oo ooo. 

0 01B 

PFLO0*2+11 







.0 40 03 

0 0 000 
(i n i t n s i 

79 

80 

81 

COREXX 
PFR 

P FW 

EQU 

EQU 

FPU 

CORE+3 

0 00 0 

n non . 







010 0 0 

0 0 0 01 

82 

83 

WPFB 

XI 

EQU 

EQU 

1 00 08 

1 



- 




0 0 0 0 2 

0 0 0 03 

0 0 0 0 3 

.... 84 

85 

86 

X2 

X3 

PSA 

LQU 

EQU 

EQU 

. 2 

3 

X 3, . 







. 0 0000 . 

0 0 Q14 

. :....87.‘ 

87+001 

. QQ . 

.CN 6 LK . 

PRIVBIT 

EQU 

EQU 

. 0 

12 

SET IF 

SJ3 REQUIRED ON LOGIN 





0 0 035 
00037 

89 

90 

MU 

DATE 

EQU 

EQU 

3 53 

3 73 

NUMBER 

OF USERS 






92 

____93_ 

4 

USER 

DIRECTORY DEFINITIONS 







ooooo.. 

0 00 02 
n n n n 3 

94 

95 

96 

“TTOffCU. 

UDTIMLIM 
... iinW-FRl T M 

.EQU. 

EQU 

COII. 

0 

2 

3 







..... u-U'-y-u-vj .. 

0 00 04 

0 0 005 

97 

98 

UOSFBLIN 

UDFLAGS 

■. 

EQU 

EQU 

4 

5 







—. 0 0 0 06 " 

0 00 07 

100 

101 

U0SF3LKS 
UDTIME 

.tuu....... ... 

EQU 7 

FC9QEF 






’W 

66 
■hl- 
68 
f. c? 


v 

4 


FILE CONTROL BLOCK DEFINITIONS 


7-0— 

71 

72 

__4_ 

ACC WORD 
LP 

EQU 

EQU 

0 

1 

73 

..C’OREjP.:. 

.EQO.. 

.. 2 

74 

. * 



?5.. 




76 

____ 

GBP 

EQU " 

.COREP +1 . 

77 

CPP 

EQU 

4 


(MUST 8 £ 0) 


*7-8- 

7 5 
80 

Trr 

8 2 
A ~i 

Ta" 

8 5 
- 8 - 6 - 

87 

88 
"W 

90 

-94.- 

92 

93 
• 94 " 

95 

96 

97 
102 
10.3 


, 4 

♦ 


* 
1 * 


-4~ 


ACCOUNTING WORD 
LOAD POINT BLOCK 
CORE POINTER IF NCN-ZERO 
IF 3IT23 = 1 , CORE BLOCK HAS 

.BEEN.WRITTEN.INTO.-. 

BLOCK NUMBER OF THE CURRENT 8 LCC* 
CURRENT POSITION POINTER * 

.(^t~POS-Tf^-"*T7H±N”--*BtOe-K.&8'P^—♦ 

BIT23 SEZ READ-ONLY * 

0IT22 SEZ AT LOAD POINT * 


8TT21 .SEZ. END . 

BITE 0 SEZ FILE 


■xmnmr 

NARK JUST READ 


3LKR 


~¥ - 

iPP 


EQU 


EQU 


4 

¥ 

r -4- 

’ V 


TFT-EQU-7-“.■ 

¥ 4 4 ¥ ¥ ¥ ¥ ¥ V V ¥ 4 4 4 4 44444444444444444 4444444444444444444444 4444444 44 444444444 


4 
♦ 
♦. 

"BIT18 SEZ BINARY RECORD PROCESSED 
Sill7 SEZ ABNORMAL/UNAVAILABLE * 

•• 8TT16" SEZ ■ ADDRESS 'ERROR. *• 

BIT15 SEZ SAVED FILE * 

NUMBER CF BLOCKS BEYOND * 

.T HE C URRENT 3 L C CK. ; .~.....*T 

END POSITION POINTER * 

BIT22.SEZ.THE.FILE.HAS-.CHANGED.* 

BIT21 SEZ POSITIONER READY * 

8IT20 SEZ DESTRUCTIVE READ * 

“FILE' B I'REC'TORY. * 

BITS 15-18 CONTAIN THE HT * 

BITS 00-14 CONTAIN END POSITION * 

TOTAL LENGTH.IN.BLOCKS •. 


104 

203 


HTDEF 

444-444 44 4444-44 444 44 444 44444-44444444444 4444444444 44444 44444 4444 444444444 


0 0 0 01 

0 0 002 

-.-.-2-6*4.- 

205 

206 

——s * 

HTFILE 

HTLP 

EQU 

EGU 

018 

0 28 

FILE 

LINE “PRINTER 

..—... - 


.......■- 0 ’ 0 ’u 03^.“.~.“ 

..'.20 7. 

-HTPUN.. 

.EQU.. 

.0 38. 

.CARD.PUNCH.. 

.....■ " ^ 


0 0 0 0 4 

208 

HTCR 

EQU 

0 48 

CARD READER 

^ . 


00005' 

20 9 

HTMT 

EQU 

n 60 

....MAG NET! C.TAPE. 

_.._. 


0 0 0 0 6 

210 

HTTTY 

EQU 

0 6 B 

TELETYFE 

* 


0 0 007 

211 

HTPLOT 

EGU 

0 78 

X/Y PLOTTER 

* 



212 

213 


HTNULL 
HTT V 


-£QtP 

EQU 


103 

113 


ONLINE INCINERATOR 
CRT DISPLAY 


4 

4 


o 
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ACCOUNTS 




0 0 0 12 

0 0 0 13 

.ij .fl.nl ii..... 

21 A 

215 

. ?i ft.. 

HTRAF 

h rr ASK 

.UTMSR . 

EQU 

EQU 

.FOIJ. 

128 

133 

.1. ua ..... 

CD “ 


0 0015 

0 0 016 

uJ> U 

217 

218 

HTPTP 

H T M A X 

ECU 

EQU 

153 

163 

O ... 


0 0 017 .. 

“2 : 19“—~~ 

220 

221 

H IM ASK 

, ■'/■ ? tffV- 

.EQU . 

■^-V- TV ^ ^ ^ 

~f7S~~ 

‘fVV-V-V- 


0 000 0 


10 5 

105+001 

DAYSCHD 

ass 

1 


- RANDOK ACCESS.F HE. * .. 6 

FUTURE INPUT FOR REMOTE BATCH * 

- - — —.USER DISK PACK - - -.-—.- ... 

PAPER TAPE PUNCH * CP 

(NUMBR OF HARDWARE TYPES) + 1 * 

— MASK FCR ' THE h ARDWARE T Y PE"— * . .. —' ► 

->f * 2 ;. ******** # ^ ^ ^ ^ # * * # ¥ # ¥ * * * ¥ ¥ ¥ * * ^ ¥ * ❖ ¥ ¥ * ¥ r ,(j| 

LOW HOUR FOR EACH SHIFT 

— - ...—: - r ...-..i...—.......- 9 _ 

O 

“ .“."."..... : ."... . ..■.”.. : .. e O 

w ... „ w , „ w .,, ^ „ ...... __ .___..... .. _ <tu 

~ “ — ~ ..~'.; .'.."* l o 

..o 

.. .' o 

___C__L-^__'. - ... ■ '■. ' '_.1.o 

o 

___....____._..............._......_._.........:.... O 

”^ r— ”.~7 ".“ ..““ 6 

: . : _;_....___.,.________,.. O 

*"...~v^..o 

..^.."7 r ~ :— :. ~t- ...rTTTTfjr^.\..““.o 

._ _c__ ■ : :■ ; ^C:;.; . . :''^cc C:\. : ■ o 


O 
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110 

.Ill. 

112 
113 
11 A 

115 

116 

.117. 

118 

.419. 

120 

121 

™422'“. 

123 

124 

.125. 

126 

.42-7. 

12 8 

129 

130 

131 

132 

.433"'” 

134 

.135. 

13 6 


ACCOUNTS 

if. >/. if. ^ ^ ^ if. if. if- 

* 

. THE FORMAT.OF-.THE ACCOUNTING FILE IS.A.SERIES OF 17 WORD.- * 

RECORDS. THE FIRST WORD OF THE RECORD IS 00000017 IF THE * 

RECORD IS A NORMAL ACCOUNTING RECORD OR A 4GOOOOOO IF IT IS * 

. .—™ T 'HE"~EN O “O F.THE.FILE. .—....... * 


WORD WC 
WORD 00 
WORD04 
WORD 02 
WORD 03 
WORD 0 4' 


. WORD.05 

WORD 06 

-—WORD.07 

WORD 08 
WORD 09 
—WORD 10 
WORD 11 
WORD 12 

WORD.IT 

WORD 14 
.WORD.15 


. ^ ■ 


40000000 .OR.0 0 00 0017 

DATE AND HOUR FROM RF 37 

ACCOUNT.NUMBER.—.----- 

USER CODE 

SAVE FILE BLOCK TOTAL 
T ERM I NAL NUM 8ER TN" B IT S 45=23 “ 

TRAFFIC IN BITS 6-14 

BATCH QUEUE NUMBER IN BITS 0-5. 

CPU TIME INMILLISECONDS 

ELAPSED WALL CLOCK TIME IN SECONDS 

RECORDS.OUTPUT.TO PRIM ARY L INE.PRINTE R 

RECORDS OUTPUT TO THE PUNCH 
RECORDS OUTPUT TO THE PLOTTER 
NUMBER OF-IMPLT CARO S READ 
MILLISECONDS OF TAPE DRIVE ACTIVITY 
NUMBER OF SPECIAL INPUT RECORDS 

.RECORDS.TC.PAPER.TAPE.PUNCH. .* 

RECORDS TO REMOTE LINE PRINTERS 
SECONDS.OF USER.DISK.PACK-TIME._.-. 

AMMM AMMAM AM A> Af AM AM 



o 

o 

o 

Q, 

d 1 

10 

O, 

o 8 

o 6 

o 5 

Q, 


o 


























































ASSEMBLER/OS 3 Vl.Q 0 9/21/7 A 2232 PAGE 


ACCOUNTS 


LOGOFF ROUTINE 


* .LOG EXECUTIVE REQUEST.-...- - - .——----.-.-. * 

-* ¥ 

* USER MUST BE IN CONTROL NODE AND * 

+ ———™ I F~"L0G IN —H A V E JO 8 / USE R NU M B ER I N A Q— 0 R —.- - - *~ 

* IF LOGOFF HAVE 0 IN A * 


EFFECTIVE ADDRESS OF INSTRUCTION.SHOULD BE THE LUN OF. 

STANDARD OUTPUT IF IT HAS NOT YET BEEN UNEQUIPPED SC THAT 
I-T.CAN.BE.CHARGED.FOR.IF.NEEDED-------.-------. 




1 ¥¥¥¥¥¥¥¥¥¥ ¥ 


0 00 01 
0 000 2 
0 0 0 0 3 
00004 
000 05 
0 000 6 
00007 
0 00 10 
00011 
0 0012 
0 0013 

.0-0414- 

0 0015 
000 16 
~0’04T~7" 
00020 
00021 
1T042E’’ 

. 0002-3- 

00024 
00025 
0 0 026 
0 0 0 2 7 
00030 

.40431“ 

000 32 
440-33- 
00034 
00035 
00036 
0 00 37 
00040 
“00041“ 
00042 
-40443- 
00044. 
0 0045 
00046- 
0 00 47 
00050 

00051. 

00052 

.00053. 

00054 
00055 
0 0056 
00057 
0 006 0 
00061 
00062 
0 0 063 
00064 
00065 
00066 
00067 
00070 
0 0071 
0 0072 

00073. 

0 0074 
00075 
0 00 76 
00077 


0 00 01 
14600000 
40377777 
05100001 

-04-0-0-0-0-23. 

20100002 
53 50 0 000 
-£’0 ± 0 T 0-06* 
1760 0017 
05677777 
“014040’T4“ 
14600000 

.5360.044 0- 

20277777 
12077760 
30 37 7777' 
53600000 
20100000 

“3420¥0¥0 . 

00023 
...14-677777-. 
34377777 
77730000 
•14677777 
35Q77777 
40 GO Q 0 27 
14277777 
5410 0 57 5 

.473Q 4575 

02500044 

47200552 

47300576 

14700047 


0 100 0552 -P- 
53 30 0 0 00 
44177777 X 

' 01 2 Q 0 0 0 Q. 

47200552 P 
13000030 

“77550 0“G1. 

44000550 P 

.13 00-0-03.0-. 

54300575 P 
77640001 
■ 20-37 7777“ X“ 
03100322 P 
20377777 X 

.04240463.P 

00000431 P 
20 00 0 502 -P- 
40 00 0600 P 
14277777 X 
14300070P 
01000537 P 
54100603 P 

0510 0755. 

01000116 P 

14477756. 

40 00 0603 P 
14200001 
1410 0 0 00 
77650001 


SRCH01 


3SRCHB2 


UDSRGHO 3 
OOSRGHQ 4 


SS A 
ST A 
“ENT 
LDI 

.....SOll- 

130 
ST I 
ST I 
ENQ 
ENA 
TTJF 
AZJ,GS 
4A1-P-— 
TIA 
SWA 
UJP 
ST I 


-SHA-Q- 

LDI 

AFF 

LL'A 

AZJ,N£ 
LD A 

“ATJ,'GF‘ 

HLT 

-LDA-. 

STA 
ENI 
'EM ' 
UJP 
LDI 

ISG . 

UJP 

ENA, S. 

STA 

ENI 

ENI 

PFA 


. TIVPSA . 

1 ,X1 

-X 40G — 

1+1,XI 
X1+CH8LK 
EPPIX1+CN3L K 
i 74 

LPTA8L 

. -*T2~ . . 

0 

.X 2 ----- -- 

LPT’AB, X2 
-15 

“A*CCSTUF F'j'PS A'' 
X 2 

ACOMORO* XI 
0 , X 2 . 

¥ 

- MSWA-IT - 

I 080UNO* PSA 
A12/DINT 
SW3IT 
FLAGS' 

FLAGS 

“XREQERD7X2. 

UDQUEUE, Xi 
.-U-DQUE-UE-r-P-SA-— 
UOSRCHOl*XI 
UD£XIT,X2 
' U DPS A', PS A 
UDSRCH02 

¥ + 9 

TTETBTTFF 

UDSRCH03 

--UOEXIT---- 

PSA 
T 2, XI 
J,X2 

UCEXIT,X2 

24 

PFLCC+PFR 
UDPFRSTR 
-2-4----- 

U DPS A,PSA 
PFLOC + PF W 
■~A »PS A 
UDSRCH05 
ACCNUM,PSA 

TTT.~....~ 

UDSR.CHX5 

.ACC WORDS-.- 

ADDRESS 
READ,X2 
¥ +2 , X'3*~ 
UOIOX 

POSITION,XI 
WPF6-19YX1 
ACC 01 

-=-17--_-_ — 

POSITION 
1 ,X2 
0 ,X1 

PFLOC+PFR 


MARK THE.END. OFTHE .PSA LIST 

STAN CAR D. OUTPUT.GOES . NOT .EXIST.- 

LOAD THE CONTROL BLOCK ADDRESS 

WHAT KINO OF PRINTEx DC WE HAVE 

SKIP IFNOT A PRINTER NUMBER 


LOAD POINTER TO PRINTER CONTROL 
MACRO PICK UP PROPER ACCOUNTING 

*W G R'Q“~—— 

LOAD THE LINE PRINTER TOTAL 
.CHARGE FOR THE PRINTER RECORDS . 


PREVENT FURTHER TOIL 
PERFORM “SWITCHING 


LOAD THE ENQ POINTER 

-ADVANCE THE E-N-D POINTER ... 

JUMP IF ALREADY ACTIVE 
SAVE THE RETURN ADDRESS 

“ACTIVATE '! H t' GU BUS. 

ENTER THE INTERRUPT ADDRESS 
ENTER THE RETURN ADDRESS 

OBTAIN SOME’ CORE Tu PLAY WITH. 

JUMP IF CORE WAS AVAILABLE 
SCRAM - AND WAIT FOR THE INTERRuRT- 

IINK INTO THE QUEUE 

'AND" RET OftN— ■ -‘-—-— ' 

SAVE THE RETURN -ADDRESS 


SAVE THE PAGE FILE WORD 


LOAD THE PSA ADDRESS 
LOAD THE PAGE FILE WORD 

LOAD' ’THE ACCOUNT "NUMBER’..-. 

JUMP IF LOGIN 

IS THE USER LCGCEC CN 

JUMP.IF SO. .— . 

CONTROL MODE ELEW IT AGAIN 

- LOAD.T H E.0 UR RENT.B 40 CK NUMBER- 

SAVE IT FOR REFERENCE 


READ IN THE CURRENT BLOCK 
LOAD THE INTRA-BLOCK FGSITION 
SKIP IF AN EXTENSION IS. NEEDED. 

THEPOSITION WILLBE ZERO ATTHE 
ENO OF THE OPERATION 
ONE BLOCK IS NEEDED 
SELECT MASS STORAGE"DEVICE ZERO 
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ACCOUNTS 


.OOluO ' 

00101 
00102 
0010 3 
00104 
0 0105 
00106 
00107 
00110 
00111 

00112 . 

00113 
00114 
0 0115 
00116 
00117 

00X2 0. 

00121 
00122 
00123 
00124 
00125 
00126 
00127 
00130 
0 0131 

.00132. 

00133 

00134 

00135“ 

00136 

00137 

.00140. 

00141 

00142. 

00143 

00144 

00145 * 

0 014 6 

00147 

00150"" 

00151 

00152. 

00153 
00154 
0015 5 - 

0 0156 
00157 

00160. 

00161 

.00X62.. 

00163 
00164 
0 0165 
00166 
00167 
0 0170 
00171 

00172. 

00173 

00174 

00175 

00176 

00177 

00200 . 

00201 
00202 . 


.44 00 0112 P 

77730000 
00 777 777 X 
40000602 P 
40 004 0 00 
14277777 X 
14 70 0 5 77 P 
14100003 
14300X12P 
01000544 P 

14600 00-0... . 

77640001 
14100755 
0100 0X20 P 
20000601 P 
40104023 

.14600021 

34000603 P 

..1.5 4 7 7 775 . 

53010037 
45104002 
4710 0141 P 
00700312 P 
21177777 X 

2Q3QQQ17.X. 

53600000 

-1-24J-Q.0 0-02- .. 

17600003 
53 50 0000 
20100127 X 
03600140 P 
13 00 0 030 

.40 00 0 6 05.F~ 

14100000 

.,25.3.0-0.060 . X.. 

45104Q04 
14700000 
■20 37 7 777 "X 
37077777 X 
Q31U 0151 P 
21377777 X 
20377777 X 

.-45-10.4010. 

25277777 X 
45104012 
■20277777 X 
21200000 
04500000 

“216'0 'S"0 0‘0 . 

45104014 

.252 7 7 777 X. 

4510 4 02 0 
20 277777 X 

-40X0 4022-*". 

14700000 
4100 0604 P 

20377777.X 

4510 4 G16 

...2-0.-3.7..7.7-7Z.X. 

2137 7 7 77 X 
45 10 40 0 6 
20377777 X 
12077754 
44104007 

53020 0 35. 

12000006 
. 3.4-.XO.-4.0...O-Z_- 


U OX PF 


ACCG 1 
A CC 0 2" 


240 

241 

2 41 + 001- 

241+002 

241+003 

2"4I'+0 0'4 
241+005 
241+0 0 6 
241+0 G 7 
241+008 
' 241 + 0 G9" 
241+010 
241+011 

'zwrForzr 

241+013 

-25-3_:. 

25 4 


XTCUO'3' 

ACC04 


SWA . 

VF 0 

.RTJ. 

ST A 
STA 

"ENX— 

ENQ 

ENI 

ENI 

UJP 

ENA . 

APF 

ENI 

LD A 
STA 

.ENA. 

RAO 

INA»S. 

TMQ 
STAG 
- ST I • 
RTJ 
LDQ 

.EDA. 

TAI 

-SNA— . 

ANA 

TAI 

-tSA— 
AQJ , GE 
SHAG 

ENI 

.LDAQ— 

ST AQ 
ENQ 
LOA 
LP A 

AZJ,NE 

"TuG.~ 

LDA 

-SXA-Q—. 

LDAQ 
STAG 
-t&A— 
LOQ 
QSE , S 

Tucnn. 

STAG 

-LO-A.Q_ 

STAG 
LOA 
STA 
ENQ ' 
STG 

'TITA~ .~ 

STAG 
...LB A- 

LOG 

STAG 

-LOA'-""-- 

SHA 

SWA 

TMA 

SHA 

...RAD_ 


LOGOFF ROUTINE 


UDXPF 
A 12/DINT 

GET3LK.-. 

ACCWORDS 

CORE 

WRITE,X2 
EXPAND 
3,XI 

*+2, X3. 

UDIOZ 

IMPURE- 

PFLOC+PFW 
W PFd-19,XI 
ACC02 
FM 

C ORE +19, X 1 

17. ; . 

POSITION 

-2 .-.. 

DATE 

C GREX X-l,X1 

.A C C O 4,X1. 

SHIFTRAT 
RATETAB,XI 
ACCSTGFFVPSA 
X 2 


3 

XI 

R ATETAB, XX.. 

ACC03 

24 

RAT EXACT 
IMPURE, XI 

-A CCNUM , P-SA_ 

COREXX+1,XI 
0 

5 YSCOOE,PSA — 
BIT19 

TTCTT'HET-FSB .. 

TDIAL TIM,PSA 
-CORE-XX+5,Xl—— 
L PRE G, X 2 
C OREXX+7,XI 
PLOTREC,X2* 

0 ,X2 
0 

C,X2 -: 

COREXX+9,Xl 
....P.TP.R.EC.»-X2.... 

COREXX+13,XI 
MSFTIME,X2 
C OREXX+15iX1 
0 

TOTAL 

T XTOTAL , PSA. 

COREXX+11, XI 

...SJESL-KS-,PSA. 

TERM INAL, PSA 
COREX X+ 3 } XI 

-s-EteeT -,p-s*a— 

-24+5 

COREXX+4, XI 

.NU... : . 

6 

.COREXX+4-,.XI. 


PREVENT INTERFERENCE 

GET.A.FILE.8LCCK. 

STORE THE NEW CURRENT BLOCK 
STORE THE FORWARD POINTER 

INITIATE THE WRITE OF THE FILE 
MARK.INTO.THE EXT ENSION.BLOCK 


ENTER THE POSITION OF THE 
PRESENT ACCOUNTINGRECORD 
LOAO THE FILE MARK WORD 
STORE IT INTO THE BLOCK 
ENTERTHEPOSITIONINCREMENT 
ADVANCE THE POSITION 
COMPENSATE FORTHEI-RGAP 
LOAD THE CURRENT DATE AND HOUR 

■SAVE INDEX ONE. . 

FIND WHICH SHIFT IT IS. 

GET HE RATE FCR THIS SHIFT. 

.LOOK.AT.THE. RATE AT.LOGON.TIME". 

POINTER TO THE ACCOUNTING STUFF 
.-GET T H E LO G ON R AT E F A C-T O R -. 


USE THE LARGEST RATE. 

SAVE FCR.CONFUTING. 

RESTORE THE INDEX 1 

LO.AO.XHE.AGCOU.NT -NUMBERS 


WALL CLOCK TIME 
GET SYSTEM CODE -- 
GET BATCH SIT 
JUMP IF BATCH CHC= 


TIME 


LOAD LINES PRINTED AND CARDS 
FUNCHED 

— 'LOAD PLOTTER RECCROS ' • 

IS THERE A CARD READER POINTER 
SKIP IF NOT 

.LOAD THE' NUMBER CF CARDS.READ. 

— .LOAD .PAPER TAPE -PUNCH -AND.REMGT 

LINE PRINTER RECORDS 

LOAD SECONDS CF USER DISK PACK 

. TIME AND SAVE IT . - . 

SET SPECIAL INPUT RECCROS TO 0 
SET THE CHARGE TO ZERO 
....LOAD.THE".TAPE.ACPI V IT Y . WORD . 

._.LOAD.THE.TOTAL.SA-VEG. FILE .SPACE 

LOAD THE TERMINAL NUMBER 

- ±em~-1 HE-8-ATCH -TERMINAL NUMBER 


GET.NU H BE R.OF. USER'S.•... 

AND SAVE FOR THE STATISTICS 













































ACCOUNTS 


LOGOFF ROUTINE 


CD 


a; 


CD 


(3 


O 


O 


o 


ASS E M3LER/0S3 V 1 . 0 0 9/21/ 74 2232 PAGE 


o 


o 


o 


o 


a 


a 


0 0203 
0 0204 
0 0205 
00206 
0 0207 
00210 
0 0211 
0 0212 
0 0213 


53100000. 

53600000 

13000011 

17 60 0 377. 

1470 0 000 

-44-104*047. 

14177777 

14700377 

, r3 . 0Wlt . 


0 0 23-3 P- 


.. 0 - 0246 - 

0 0247 
00250 


.lS-BOO-G- 0-4 

50000605 
40 10 4 010- 
— 8 * 0-254 


P 


0 0 266' 
0 0 267 
0 027 0 
00271 
0 027 2 
0 0 273 


0 027 5 
0 0276 
0 0277 


00 000266 
20300172 
31377777 
30TOW06. 

05400000 

14600000 

4010400b 

20000604 

40300056 

12077774 


26 8 

289 

290 

291 

292 

293 

294 
.295 

296 
.297. 


if if ** if*.*if*.*ifif *.if if if if if * * if if. if. if. if. * * if. if iff if. * if .if. ****** if if if if if if if if if *************** if if if if if if * if * if 
* 

....*. ._. 

* 

* 

* 

* 


A - 

HE 

A 


_JS_ 

*; 


THE FOLLOWING CODE.(TO ACC08).DETERMINES IF 

USER IS A HIGH-SPEED DEVICE USER, AND IF SO 
IS CHARGED FOR EACH DEVICE USED. NOTE THAT 

USER.rS'CHARGED ASERVICE CHARGE FOR EACH 

DEVICE USED, SUCH THAT IF HE HAD THREE DEVICES 
AND READ ONE RECORO FROM EACH, HE WOULD BE 

CHARGEDFOR.THREERECORDS.ANOTHREESERVICE 

CHARGES. 


********************* **** ******* ****** ************* **** ******* ********** 


299 
30 0 

301 

302 

30 3. 

304 

-3 05- 
30 6 
307 
30 8 


ACCMEQ 


TTA. 

TAI 

SHAQ 

"ANA. 

END 

.STD. 

ENI 

ENQ 

SHAQ 


-XI—~ 

X 2 
9 

'3773. 

0 

GORE X X+12,XI 
HSITA3L.X1 
3 778 
2 4-9 


-SfrV€—* 

INDEX XI FROM MEG INSTRUCTION 
MASK TO TERMINAL.NUMBER 


Z£RO.HIGH-SPEED.RECORD.SUM. 

NUMBER OF ENTRIES 
MASK FOR SEARCH 
SAV:E~TERMINAL NUM 8 ER' 


324 


•*ce-£rr- 


EQU 


-33-9- 

339+001 
341. 




-IN-A¬ 
MU A 
SI A 
LCD 


RATEFACT 

C OREXX+5»XI 

* 


-RO-U-NO—UF— ---—.-. 

MULTIPLY BY THE SHIFT RATE. 

SAVE MODIFIED NUMBER OF RECORDS 


356 

359 

360 

361 . 

362 . 

363 ._ 

364 

365 

366 

367 


XI 


HLT 

LOA S F3LKS,PSA 

S3A ISF8LKS,PSA 

ADA .~ CORE+UDSF8LKS, 

ASG,S 0 

ENA _-0_-._ 

STA CORE+UDSF8LKS,XI 

LD A TOTAL 

STA. A,PSA 

SHA -3 


OTHERWISEHOWDID HE LOG ON 
LOAD THE TOTAL SAVED FILE SPACE 
CALCULATE THE CHANGE IN SPACE 

ADD.IN THE.INITIAL VALUE. 

PREVENT NEGATIVE TOTALS 


STORE TOTAL INTO THE DIRECTORY 
LOAD THE CPU EQUIVALENT 


, s 3 

' 9 -x 

o 

.sG 

.. 6 

o 


. O l 


0 . 

0 0214 

0 0215 

052 77777 
01000233 

X 

p 

309 

.3.10. 


MEQ 

UJP 

HSIT AB,2 

ACC0 8 

LOOK FOR USER 

.NO.SUCH.... LUCK.S..C..LEAVE. 




00216 

0 0217 
.0 022 0 

13 00 0 011 

2 0 10 0 214 

. 5 . 3 .70-0 .00 0 

X 

311 

312 

... 34 . 3 ... . 


SHAQ 

LD A 

.TAT..... 

H SIT A8,XI 

X 3 

RESTORE TERMINAL NUMBER 

GET LUNLIST POINTER 

.FOR.TMQ-F-X-I-NG.T-H-F.LUNLIST.ELEMENTS. 



0 -. 

0 0221 
00222 

20 300 Q01 
53700000 


314 

315 


LDA 

TAI 

1 ,X3 

X 3 

GET CONTROL BLOCK POINTER 

POINT AT CONTROL BLOCK 



0 

0 0223 

G 0 22 4 
00225 

"2 0 30 G 0 U 0 
04400000 
15600310 


... " 

317 

318 

. frGCtjfcx*”’ 

'LDA. 

AS E, S 
INA 

‘""“"ACCNORO'T'XB..... 

0 

SPSERCHR 

..GET ACCOUNTING INFO 

SKIP IF NO USAGE 

ADD SERVICE CHARGE IF USED 




... 0 0 226. 

0 0227 

. I) (1510. 

. 34204017 

14600000 
. Zi.nij.an. 7 . 9 . 3 

p.. 

IT? 

320 

. OA . 


~mr~ 

ENA 

. <?T A- T_ 

C0REXX+i2,X2 

0 

ADO TO TOTAL ..... . 

_ri CAP .flnQ-ll-N-TTN-P-.I-NF-O.T N...... 



0 

---U UcUU 

0 0231 

0 0232 

. *x U '^T ti O.. 

13000030 

01000212 

«. . 

p 

322 

323 


^ * H f ir- 

SHAQ 

UJP 

2 4 

ACCMEQ 

u nf% H w w w $ 1 nw X Ivf v X 11 ^ 

RESTORE TTY NUMBER 

AND CONTINUE TG SEARCH 




00233 

53200000 


32 5 

TIA 

X 2 

RESTORE 

... 0,0.23.4. 

....5.3..5.Q..O..O.O..O.. 


3 2 6 

... TAI._ 

_XI ......_._ 

.... INDEX XI. ......... 

00235 

54300576 

P 

32? 

1 O J2 

LOI 

UDPSAjPSA 

RESTORE CURRENT PSA POINTER 

.0 0 236 

. 1 L .P? ISl^-Sy . 


o c c 

.3 o c .. 

.. EfvjT. 

..--CGS-1X -+ ___ 

.COMPUTE?.THE.CHARGES.FOP ThF ...-.. 

0 0237 

2010 4 010 


33 Q 

ACC LOOP LOA 

COREXX+5,XI 

CONTROL MODE ROUTINE 

0 0240 

40377777 

X 

~2> ~2 4 

6 0 X 

STA 

R F6 0 , X3 

SAVE VALUE IN USERS REGISTER FILE 

' 00241 

1550 00 01 


3 o 2 

• INI 

1, X 3 


00242 

14700000 


3 3 5 

ENQ 

0 


00243 

13077774 


33 6 

SHAQ 

-3 '■ 


.... - . 00244. 

~3T077777" 

T 

335+SOI 


07777777 ~ 

.PREVENT SIGN .EXTENSION.. 

00245 

04500 000 


338 ' 

QS£,S 

0 

SKIP.IF EVEN NUMBER OF EIGHTS 


CL;,.. 

0 0251 
00252 

151U0001 
13077753 


343 

344 

INI 

SHAQ 

1 ,Xi 
-12 




.0 0253" 

.17607777'' 


.3"45~.'.~ 

“. : . : .'.ANA. 

.“.077776 .. 

WATCH FOR NEGATIVE 



00254 

. . 0 0 25 5. 

51200620 
-3 4 0 0 0604 

P 

p. 

3 4 & 

.3.4.7. 

■ OVA 

...PAD_ 

COST +COSTL-l,XZ 

...-T-QTAL.. 



cr 

• '10 " ss;i 

0 0256 

02200237 

P 

348 

349 

• 3se 

iji 

A CCLOOP,X2 



d... 

00257 

2 0 00 0 60 0 

P 

351 

LDA 

ADDRESS 

LOAD THE ADCRESS OF THIS SLOCK 


00260 

14200105 

X 

352 

ENI 

WRITE,X2 

AND WRITE IT CUT 


9 . 

“ 002&1 

.1430 0 263. 

“P.~~.~ 

.3 53 “ 

...... E Nir. . 

......... .... 



Q . 

0 0262 
....0 0263. 

01000537 
... 2 530 01.42-. 

P 

X __ 

354 

....3.5.5... 

UJP 

..LDA.Q. 

UDIOX 

.... ACCNUM, PSA. 

....LOAD THE.A C C OB NT.NUN BE RS.-..-.-. 


o 

0 0264 

00700522 

p 

356 

RTJ 

UDSRCH 

SEARCH FOR THIS COMBINATION 


00265 

04400000 


357 

ASE, S 

0 

WE HAVE TO FIND THE ENTRY 



o ; 


.0 

:i 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

O 

o 













































o 
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CD 


CD 


O 


0 


o 


o 


o 


o 


o 


o 


o 


A SSE N3LER/QS3 VI. 0 09/21/ 74 2232 PAGE 


381 

382 

383 

384 

385 

386 

387 

388 

389 


ACCOUNTS 


LOGIN ROUTINE 


* V V ¥ ^ M v* * * $# ** v**** *^** ** * w* 

V- * 

*—-----LCG IN ROUT.INE---—.—....---—-—---.-. * 

ERROR CODES 


v- 

Jr 

-Jf 

V- 

¥ 

Jf- 


- 0 - 

1 

2 


LEGAL JOB/USER CO D E 
JOB NUMBER OUT OF TIME 
ILLEGAL J03/USER CODE 
EXPERMENTAL.OS 2 IS RUNNING 




00322 
00323 
0 0324 

00325. 

0 0 326 
00327 
00330 
0 0331 
0 0 3 32 
0 0 333 
0 0334 
0 0 335 
00336 

-,0-0337. 

00340 
0 0 341 
00342 
00343 
0 0 344 
0 0345 
00346 

.0-0-34-7- 

0 0 350 
00351 
00352 
00353 
0 0 354 


0 0 355 
00356 
0 0 357 
00360 
00361 


00322 P 

2 G 3U 0 263.X 

03300325 P 
00000325 P. 

25300276.X 

45300322 X 

.0 0 70-0 5 22.P. 

0 310 0 474 P 
20300175 X 
12077754 
16677777 X 
53 60 0 000 

.2 010 40 0 6. 

4030 0 267 X 

.4 030-0-270.X 

20 10 40 02 
31104007 
0 5 477 777’ X' 
01000346 P 
05200001 

~T4OTGT42.X. 

40 377777 X 

.0-3-2-0-0-3 5-5.P- 

12000001 
30104002 
0320 0’355 P 
1410 0001 
01000475 P 

<nr3'55.p. 

20104093 


391 

392 
39 3 

394 

395 


UDSRCH0 5 


-0-5-4-7-7-7-77- 

01000362 

05200001 

14600356 


-X- 


396 

397 

3-98-- 

399 

399+001 
399+002 
399+003 
399+0 04 
40 4 
40 5 

-40-6 . 

407 
40 8 

4 0 8+tr01“ 
408+002 

40 8+003 

. 40 * 8+0 04 

409 

-44-0- 

411 

412 

413 

414 
4 1 P 

‘■'416. 

41 7 

41-7+001 
417+002 
417+003 
’417+0 04' 


NE 


EQU 

LDA 

AZJ,LT 

HLT 

.LDAQ. 

ST AQ 

.RTJ. 

AZJ, 
LDA 
SHA ’ 

XO A 
TAI 

TD7T". 

STA 

-.S-I-A- 

LDA 

SBA 

“ASET’S— 
UJP 
IS G 


WSWHZF 


TN7T 

STA 

AZJ-,Gg 

SHA 

ADA 

“A«tSE“ 

ENI 

UJP 


EGU 
LDA 
ASG,S 
UJP 
ISG 
-EN-A— 


-A'CCNUMtPSA” - "" 

*+2 

*+l ... 

A . PS A 

A CCNUM»PSA 

UOSRGH- 

NORM SYS 
SELECT,PSA 

F ASTQN 

XCRc+UDSF3LKS,Xl 

SF3LKS.PSA 

-I-SF-3L-KS-,-PSA - 

C ORE + UDTIMLIM,XI 
CORE + UDTINE, XI 

FASTTMAX.. 

* +3 
1. X E 

.FASTTMAX 

TIMLIM.PSA 
_U0SRGHZ-5 --- 

1 

GORE+UDTIMLIM,XI 
+ +3 
1,X1 

U6SRCHX7 


IS THE USER ALREADY LOGGED IN 

JUMP IF NOT 

WHAT DO WE DO NEXT 

L o ao.The job/user n um be r 

SET THE ACCOUNT NUMBERS 

■S E ARC H.THE-,US ER.DIRECTORY.-. 

JUMP IF NOT FOUND 

GET QUEUE NUMBER 

GET THE ACTUAL ’“"QUEUE'"NUMBER 

COMPARE IT WITH THE FASTG PNTR 

X2 = 00 0 0 08 I F FA ST..QUEUE. 

SET THE TOTAL SAVED FILE SPACE 


SKIP ’”1F-US£R -M-A-X—--- 

OTHERWISE SKIP CHECK 
SKIP IF NOT IN FAST QUEUE 

THEN.SET.IT TC THE MAXIMUM 

SET THE ABSOLUTE TIME LIMIT 

JUMP—IF- TIKE -I-S--L-EFT-.-.-.- - 

IF USER IS 50X OVER HIS GRGINAL 
TIME LIMIT REFUSE TC LET HIM 
LOG ’IN _____ 

ENTER THE ERROR CODE 


C ORE+UDMF 
FASTMMAX 
*+3 
1 ,X2 

■FASTMMAX 


BLI M , XI 


SKIP.IF.-USER.MAX.HF8LKS..-.- 

OTHERWISE IGNORE THE CHECK 
SKIP IF NOT THE FAST USER 
-THEN"SET-TO MAXIMUM 


o 

00 362 

0 0 36 3 

40 377777 X 
20104004 


418 

41. S 

STA 

LDA 

MFBLKLIM,PSA 

C ORE + UD SF8LIM,X1 

SET THE SCRATCH FILE SPACE LIMIT 



00364. 

0 0365 

0 0 366 

.40’3 77777.X.. 

11700000 

37104005 

60000 0 

420 

421 

. k 2 ? 

. 3TA 

ECHA,S 

. l_Df\ ___ 

S'FBLKLTM’, PSA .'. 

300000B 

.CORE* UP FLAGS . XI.. 

SET THE SAVE FILE SPACE LIMIT 


1 

o o 

00367 

0 037 0 

0 0371 ” 

00372 

00373 

2130 0 331 X. 
12400013 

-17-703700. 

53040000 

1660 0 000 


42 3 

42 4 

'426 

42 7 

LDQ 

SHQ 

1 —-- 

AQ A 

HESFLAG XOA 

SELECT,PSA 

6 +5 

- 0370 08 

0 + IMPURE 

FIND THE INPUT QUEUE NUMBER 

’ 'SAVE' JUST’ "Q" NUMBER 

SET MESSAGE BIT FOR DATE 



.0 0374. 

0 0 375 

0 0 376 

.40 '377777.X. 

20104005 
21300145 X 


. W'B- . : 

■ 42 8 

. Up qx n 0-1 ... 

...STA. 

LDA 

.... 1 c Q... 

.RF777PSA 

.CORE+ UDFLAGS,XI 
-..-S YSCODF-. PSA.. 

LOAD THE FLAGS WORD AGAIN 
.GET SYSTEM.CODE...-...-.-.-.-. 


O'". : . 

0 0377 

Q 0 40 0 

12400004 

05500000 


429+002 

429+003 

s'hq 

QS G f S 

23-19 

0 

BATCH SIT TO POST 

SIP IF NOT BATCH 


O- 

0 0 401 
00402 

0 0403 

17 4 if / 5 to 
40300301 X 
12000013 


425+004. 

430 

430+001 

. - ."A'itAtS— 

STA 

SHA 

UDBITS,PSA 

2 3-PRIVBIT 

T A Kfc AWAY BATCH.USERS PRICKlTY...... 

AND SAVE IN THE PSA 

CHECK THE BIT 



0Qi40V 

0 0 405 

0 0 406 

Q 0' 3 0 0 ’40' 6.P.“ ‘ 

03300474 P 
12000027 . 


.430+ 0 02" 

430+003 
43 0+004- 

..... sa3 . 

AZJ y LT 

. SHA. 

..... 

UDSRCH07 

2- 4+P RIM BIT-14 + 1_ 

~.JUMP.IF CHECKIN G.NO T.NEEDED. 

JUMP FOR FAIL TEST 

.CHECK.SCREAM BIT.-..-. 


o 

00 40 7 
00 410 

1760 0001 

03 00 0431 P 


430+005 
430+006 

ANA 

AZJ,EQ 

1 

UDSRCHX5 

MASK TO 1 BIT 

JUMP IF ALRIGHT 

.ri 1 r. n n ki p a 1 r* . . .. 


o 

0 0411 

0 0412 
00413 

o4 0Q 0 30 5 X 
20077777 X 
1470 0012 


-.-s .., 

•4 3 H 

434+001 

434+002 

----““"PA Q—_ 

LDA 

ENQ 

.S C K h A M '' *■*'*-' ' ■ 

BUSY 

10 

THECONSOLE 

MAKE SURE THE MESSAGE CAN BE CUTP 

ONLY TEN MESSAGES 3ACKE0 UP 



'. 0 0414 

0 0415 

0 0 416 

03 60 0431 .P. 

11002424 P 

14 70-0 0 20 

00505 0 

.. 434 + 003 

435 

43 6 

..'. AQ J , GE . 

ECHA 

Q j\j Q 

UOSRCHX5 ...:... 

STARS 

STARSL 

. DONFT . PRINT THIS ONE . BUT . SCREAM ... : “ ~ 


C) 5 ~.. 

0 0 417 
00420 

77730000 
14200422 P 


437 

438 

. j A ~y 7~1 . 

VFD 

ENI 

. t V w — - 

A 12/DINT 
>+2,X 2 

ENTER THE RETURN 


n 

u 0421 
00422 

010/7/77 X . 

14200424 P 


43 9 

440 

. UJP 

ENI 

urnbb ' 

v +2, X2 

ENTER THE RETURN 



O' 
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PAGE 10 


ACCOUNTS 



LOGIN ROUTINi 


.ACCPRINT . 

STARS 

-STARSL.-. 

*+2,X2 

OPMSG 

—A-l-2yEINT 
0 

Ilf PS A 
NMSWAIT 
I080UND s PSA 

--DATE- 

SHIFT RAT 
XI 

—22.——— 

A CCSTUFF»PSA 
_ 77777B __ 

ACCS TUFF,PSA 


X 2 
0 ,X2 

0 —“ 

0 ,X2 

8 -1-1,XI 

T,T2 . 

1,X2 


II,PSA 
Z LIST ,X1 
'ZlOCyPSA— 

1 ,PSA 
*- 2 ,XI 

2 ........ 

MF3LKSMZ,PSA 

...___ 

UDPS A,PSA 
A12/DINT 
UOSRCHO 4 
UDQUEUE,0 
UOPFRSTR *X3 . 
TTHreUFFP . 


PRINTCUTTHEJOB/USER. NUMBER 


IN01CATE LEGAL JOB/USER NUMBER 
SET THE USERS INDEX 1 


CLEAR THE MASS STORAGE WAIT 

GET.THE CURRENT DATE-.—-- 

GET THE SHIFT NUMBER FOR HIM. 
AND PUT IT IN THE ACCSTUFF WORD 
AND PUT IT IN THE ACCSTUFF WORD 
GET ACCSTUFF POINTER 
THROWAWAY OLD RATE SCHED 
ADO .TOGETHER.. 


CHECK FOR A BATCH JOS 


ZERO THE CARD COUNTER 
CLEAR ALL .BUT, THE.FIRS T .WORD. 


LOAD THE NEXT LINK OF THE QUEUE 
ZERO OUT THE APPROPRIATE COUNTERS 


.OOP UN TIL DO Ns 


-SET.THE.PSA.INDEX..... 

SET THE CURRENT FSA ADORES 
PREVENT INTERFERENCE 
JUMP IF MORE IN THE QUEUE 
CLEAR 7 HE QUEUE POINTER 


2 +IMPURE»XI 
* 

BIT23 

ACCNUM, PS A 
A CGMUM,PSA 

“2 .: .. 

TIML IM,PSA 

.M£B.L-K.LI.H-,..PSA- 

XI 

UOSRCHO 6 


ERROR CODE 2/3 ILLEGAL NUMBER 


INDICATE USER IS 

NOT . LOGGED ON .:___;__ 

SET THE TIME LIMIT AND THE 
.SCRATCH FILE SPACE LIMIT _ 
ERROR CODE TO A 


Zj. j ¥»**■**¥*** ***** A 

*-STARS 
















































a .... 
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ACCOUNTS 

USER DIRECTORY SEARCH 

ROUTINE 

___,(D 


U0511 

0 0512 

: .Q 0 513. 

14101000 
20300477 
.14577777 

X 

50 0 

501 

.5-0-2. 

UDSRCHO 8 
UDSRCHO9 

EH I 

LD A 

-FNQ. S. 

W PF3 , XI 

ACCNUM,PSA 
.7-77-7-78.— 

ENTER THE LENGTH OF THE BLOCK 

LOAD THE ACCCUNT NUMBER 
.SEARCH.O N.ALL. 8 TTS.-.. 


CD 

0 0 514 
00515 

06004000 
01000553 

P 

50 3 

504 


MEQ 

UJP 

CORE+UDACC ,8 
UOSRCH11 

SEARCH FOR THE NUMBER 

NOT FOUND IN THIS BLOCK 

"a 

CD 

.U 0 516 

0 0517 
00520 

25 3 Li 0 512 
33104000 
1340 0 000 

X. .... ' 

50 5 

506 

50 7 


LC AG 
S 8 AQ 

SC AQ 

*.A CCNUN, PSA 

C ORE + UDACC 9 XI 

LOAD ALL 48 BITSWORTH. 

AND CHECK THEM 

. 0 


00521 

00522 

03100512 
01 00 0 000 

p 

50 8 

50 9 

.510.-.-. 

UOSRCH 

AZJ,NE 

UJP 

UDSRCHO 9 

IMPURE 

JUMP IF NOT A COMPLETE MATCH 


Q ~ 




511 

512 

* 

THE FOLLOWING IS THE SCATTER 

FUNCTION FOR THE USER DIRECTORY 

Q 

.. / 

0 . 

U 0 52 3 

U 0 524 

0 0525 

53040000 
50000574 
53040000 

p 

..513.. 

514 

515 


.HUM 

MUA 

AQA 

UDHASH 


. 


0 0 526 

00 00 0526 


516 

517 

.. 5 i fl. 

UOS ELEC T 

VFO 

A9/IMPURE,A15/++INPURE,A24/IMPURE 



..nn^^ii. 

.24.fl.7.7. 7 . 7 . 7 ... 

Y. 

....Line ppH1-0 

in n. 

nni cMpTu. 



o. 

00531 

00532 

03700533 
1460 0000 

P 

519 

520 

■-'v OO Ixu ni u. 

AQJ,LT 
ENA 

. ..U Ucu lvu 1 T1... .... 

*+2 

0 


O 

O . 

0 053 3 
00534 

0 0 535 

40 00 0 6 U 0 
14200065 
14300511 

" P ". ... 

X 

p 

521 . 

522 

523 


ST A 

ENI 

ENI 

A DDRESS 

READ, X2 

UDSRCH08,X3 


......1 .0 


.'.00 536. 

...0 0 537. 

.30 077 777 

0 0537 

-.13 00-0 0-3 0. 

x. 

p 

.524.‘. 

525 

-.526..-.. 

"0610" ‘ 
UDIOX 

.ADA. 

EQU 

.Skin.. 

USERDIR 

* 

..2-"4. 



O 

00540 

00541 

77650001 
12000011 


527 

528 


PFA 

SHA 

PFLGC+PFR 

9 


0 

o „. 

00543 

0 0 544 

' 13 0 0 C 0 3 0 
14101000 
47300573 

p 

'"529... 

530 

5 31 

UDIOZ 

■■"SHA'0r~“ 

ENI 

STI 

WPF8,XI 

UDIOENO,X3 

SAVE THE CONTINUATION ADDRESS 

... O 


u 0 545 

0 0 546 

.0 0 5 4:7. 

14300564 
77 73 0 0 00 

.00-7-7-7-777- 

p 

532 

533 

........ 


ENI 

VFO 

.or 1 . 

0 DIOWAIT,X3 

A12/DINI 

-.C..TKIV......-. 

RETURN TO THE COMPLETION ROUTINE 

..CALL.T-HE.MASS.STCR AGE.DRIVER.-.-.-.. 


O “ 

0 0550 

C 0 5 5 1 

1460 0000 
77 640001 


532 

536 

UOPFRSTR 

T\ f w 

ENA 

APF 

IMPURE 

PFLOC+PFW 

KJ hm> W SI? -iL. t S w W S W f V r% w Xm- IV JL W w 

RESTORE THE PAGE FILE WORD 

0 

o __ 

0 0 552 

0 0 553 

0 0 554 

U1 0 0 0 0 U 0 
20 004000 

0 310 0 5 60 

p 

5 3 7 

538 

539 

JOEXIT 
U0SRCH11 

LDA 

AZJ,NE 

IMPURE 

CORE+UOACC 

EXIT 

.-. 0 


.00 555 

0 0 556 

..u 0557. 

40300336 
14600001 
.01000-522. 

TT.... : ... 

.p____ 

540 

541 


.ST A 

EM A 

.UJP.. 

S FOLKS,PSA 

1 

..U.OSRC-H____ 

CLEAR THE SAVE FILE SPACE COUNTER 

NON-EXISTANT ACCOUNT/USER CODE . 


O 

00560 

0 0 561 

20 00 0600 
15600001 

P 

..—.- 

543 

544 


LDA 

INA 

ADDRESS 

1 

LOAD THE CURRENT BLOCK NUMBER 

ADVANCE TO THE NEXT BLOCK 

■. : .".r... 0 

o _ 

0 0562 

0 0 563 
00 564 

.010 0 6 57 0 . 

00 777777 
7774 GO 00 

P 

X 

545 

546 

_ 54 7. 

UDIQWAIT 

UJP 

RTJ 

VFD 

UuSRCHIO 

MACH ERR 

A12/ElNT 

AND try again 

IRRECOVERABLE ERROR 

ENABLE THE INTERRUPTS 

... 0 


.”T0"5TET5*~ 

0 0566 

._.;.-00 56 7. 

.47 30‘0‘5 52" 

54300576 
--7.7-65-0 0-0-1- 

P ~ 

P 

548 

549 

..5-5-0..... 


Si i. 

LOI 

pp t\ _ 

.‘.UDEXIT,X3. 

UDPSA,PSA 

..P FLOC+PFP...—. 

.SAVE THE RETURN ‘ADDRESS . 

.LOAD THE PSA INDEX 


O "" 

0 0 570 
00571 

44 0Q 0 55 Q 
13000017 

P 

551 

552 


SWA 

SHAQ 

UOPFRSTR 

15 

SAVE THE PAGE FILE WORD 

0 

q 2 _ 

0 0 572 
00573 

77 64 0 0 01 
01000000 


553 

554 

.... 5.55. 

UDIOENO 

"APF 

UJP 

PFLGC+PFW 

IMPURE 

LOAD THt PAGc FlLt WORD 

CONTINUE PROCESSING 

-._.-._ 0 


0 0574 

.QQ575 

00000000 
.0-0-00-0000- 


556 

55 7 

558 

UDHASH 
.U-0 QUEUE.• 

VFO 
\/FD... 

A 24/1MPURE 

.fli .r/t.mbi-p.e.. 

SCATTER FUNCTION CONSTANT 

FUn PC A PflTNTFB . ... .. 


d 5 ~- 

0 0576 
00577 

0 0 00 0 Q 0 0 
77 777777 

n 

559 

560 

UDPSA 

EXPAND 

Anno it <r c 

VFD 

VFD 

r Ai i 

09/000,A15/IMPURE CURRENT PSA POINTER 

024/77777777,A 24/IMPURE, 024/4 00000 0 0 

. r~ t,.n.. 4 j ... . ..._ ........ .......... .... . 

0 

1 0 *** M ™ 

O, . 

.00602. 

u u b u J 

0 0601 

r 

p 

5ol 

5 6 2 

563 

'"AUUKhbo 

FM 

ACCHORDS 

£ £ £ 

EQU 

ess 

. L Ar H liOTX 

EXPAND+2 

2 


.-.. 0 


00604 

. 0 0 603 

p. . " “ 

564 

565 

. 5 .6.6 . 

.POSITION" 

TOTAL 

.EGO... 

BSS 

.ACCWORDS + 1. 

1 



o 8: . 

0 0 605. 



566+001 

RATE FACT 

3SS 

1 

FACTOR FOR SHIFT CHARGING. 

■ 0 





o 


o 
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5 7 2 . * 

573 .-.-.*--- THE FOLLOWING TABLE C 0 NT AI NS CONVERSION FACTORS F 0 R A ROUGH * 

574 * APPROXIMATION OF JOE COST ITALICS CN ROUGH * 

5 7 5 * * 

57G—*. ———f-/v-BtE""VALUEG*~ARE—tUN'T'FS * 2 +12) PER CENT - -. . * 


Q> . 



5 77 

578 

* 

ENTRIES 

IN THIS TABLE ARE IN THE SAME ORDER AS THEY ARE IN 

& 

* 





.5 7 9.. 

580 

♦ THE ACCOUNTING RECORDS * 


O 



582 

583 


MACRO 

, »PAR 



o . 



.5 84 

585 

586 

.* 

NAME 

DEC 

CHARGE 

{SPAR(2)*2 + 12 BYTE $ PAR(1))/SPAR(1) 






587 

588 

.3 ft q.. 


END 




o 


0 0606 P 

591 

592 

COST 

EQU 

■* 



o . 



593 *.. 

594 

59 5 

***’T* W ..* 

* 

CHARGE 

CPU SECONDS 

30000,3600000 $300.00 PER 3600000 MSEC 




.00606 

^TTomOT)'. 

535 

53 6 

.5.9.5. 

. * 

¥ 

DEC. 

(3600000*2+12 BYTE 30000)730000 

....WALL - CLOCK.TIME. 



o 

00607 

0 0 22 0 0 0 0 

597 

585 


CHARGE 

DEC 

200,3600' $2,00 PER 3600 SEC 

( 360 0*2 + 12 BYTE 200) 7200 



o . 



..*....."'.5 86 

5 9 8 

599 

# ^ . 

CHARGE 

LINE PRINTER RECORDS 

125,1000 $1.25 PER 100G LINES 




owm. 

.WTO 0’0 QTf. 

.5T8' 5. 

5 3 6 

...Ay. Q. 

.* 

DEC 

'(1000*2+12 BYTE 125)7125 

................. PUNflHFn . CARDS ... 



o 

00611 

00040000 

sol 

585 

5 86 - 

6 0 2 

6 0 3 


CHARGE 

DEC 

250,1000 $2.50 PER 1000 CARDS 

( 100 0*2 + 12 B YTE 2503 /250 



o 



* ? . 

& 

CHARGE 

PLOTTER RECORDS 

100,510 $1.00 PER 510 RECORDS 




.0 0’ 6T2. 

00060631 

585 

586 

... ■.504 . 

.* 

¥ 

DEC 

(510*2+12 BYTE 10037100 

.....TKip ijt . r A RDS.READ. . ... 



O .“ 

o_ 

0 0613 

00 065252 

605 

585 

•... ..- 5-8-6.. 

60 6 

607 

-— 

.f 

CHARGE 

DEC 

CHARGE 

150.1000 $1.50 PER 1000 CARDS 
( 100 0*2 + 12 BYTE 1503 /150 

TAPE DRIVE ACTIVITY 

3.1000 $0.03 PER 10GC MSEC 




.F06T4^' 

.0’5T5”252'5... 

5 8b 

586 
ftp ft 

.* 

TJETT “ 

' riagi T¥ 2t lz.BYTE.3T73........*;......;.... 

________-SPEC-lAL- INPUT RECORDS. ... 



O .. 

Q. 

0 0 615 

00020000 

609 

58 5 

5 § s 

SiQ 

oil 

,* 

3J* 

GHARGE 

DEC 

CHARGE 

50,100 $0.50 PER 100 RECORDS 

(100*2+12 BYTE 503750 

PAPER TAPE PUNCH RECORDS 

50,100 $0.50 FER 100 RECORDS 


.. 


00616 

. 00 02 0000 .■.- 

.... .5T2T5. 

586 

.612. 

. * 

* 

TJETT 

fI00¥ - Z¥I2 . BTTE .50)/go... .. ' ... .: 

........REMOTE LINE.PRINTER.RECORDS.-.. 



O 1 . 

0 0617 

00240000 

612+001 

585 


CHARGE 

DEC 

50,1000 0.05 FOR 100 RECORDS 

(1000*2+12 BYTE 50)750 



o 9 . ; ... 



_—_____ g 0 

614 

615 

"T* 

3 $, 

CHARGE 

USER DISK PACK TIME 

750,3600 $7,50 PER 3600 SEC 




.00620 

. 0 0 0 4 6 314”.*... 

. 0 0 01 ?__ 

...~.585 

586 

A 1 f\ 

.* 

r.nft T 1 

.DEC.. 

..EQU.—_ 

~ (360 0*2 + 12 BYT E 7 50 Y775W .... . ' ' 

_* -COST.-..-..... 



o 8 . ~ . * 


n f; ii -i n 

617 

618 

,C -1 Q 

««w^CO ,c.. ccp.p.u. p,.„ 

jr nil . 

fan **»**»» . - KH 4 M Q CT D « n c ,, D c. fVAa, FLQ -T- H-A-U> A-C A~C^CL A, Q* 



o, _____ 


U U 0 j_ J 

ox y 

62 0 

621 

or r 5 ■ c K b rr K 

* 

tuu 

. £ U U IN U n c c K ' U r K t u u Kuo l u u ri«' K b c. r u K 

SPECIAL HANDLING FOR SPECIAL 
INPUT RECORDS 





..4.0 433.- .— 

.622. 

623 

...;..■.624 . 

..IRMMICHG . 

jegjll . 

_1666 7 .. ■' ... : .. $..50 . FOR . TAPE . MOUNTING-. . . 



0 "." 



625 

626 

71 O 77 


,,.,.rr mi . 

0 n n • ^v.. a n n r nn . n ah r n, • *r a nc u A ki ni t m 



Q 


. 0 u o lu. 

...■■■■— .-. b 2 . t . 

62 8 

r t r trH RO “ 

cUU 

cOu %px 9 0 0 PuR r Hr c H TAPE HANCLINo 
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UL i 

04540 630 MSFCHRG EGU 2400 $5.00 FOR DISK PACK MOUNTING 

CD .*.“.t~.".'.".‘.......".....“ . . ."..." . i: '(D 

CD 00621 76527557 630+002 FORMFLAG OCT 76527557 FIRST WORD OF FORMS RECORDS 9 CI 

.“.“. . . . . ...66 9... ... END.”.~........~........~.~.~~. .... . . . 

_ -.-.-.NO LINES.WI TH.ERRORS.-.----------—----—----—----—.-.-.—.—-—.-.9 _ 

o o 

O ______________;_;_,__________:__________._.;.............._....._.i. o 

O . . " . .- : ...“.". — .'.'...~.. o 

O ____ _____..._..._.._...____________._... _..,0 

o.. ".. . .~ “... — ” — : " : ~~ _i ' ^. . . ”. — ...~...~.“'b 




o 


o 


o 

o 


o 

o 

o 

o 


o...".~.....^ ' ; . . “ ^ ^ ; ■ .~. . .. . ...~..o 

O - o 


G 1 

i o 

o 9 

o 8 

CL 

o 


o 

o 

o 

o 

o 

o 


4 
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ACCOUNTS 


A.... 

ABORT 

ACC01.— 

ACC02 
ACC08 
ACCClR• 
ACCLOOP 
ACCMEQ 
ACCNUM. 

AGCO 3- 

ACC04 
ACCPfCI NT 
A CCS TUFF 
ACCWORQ 
ACCHORDS 

ADDRESS. 

31T19 

SIT23.- 

3LKR 

3USY 

CBP 

CN9LK 

CORE 


203. 00 0 56P 


36600276P 


00116P 
0 012 OP 
00233P 
00223P 
00237P 
00212P 


0 014 0 P 
0 014 IP 


0000 0 
00602P 
0 06 0 OP' 


COREP 

COREXX 


COST 

COSTL 

.CFP."T" 

DATE 

DAYSCHD. 

DINT 

EINT 

EPP 

EXPAND 

FASTMMAX 

FAST DPI. 

FASTTHAX 

FINK. 

FLAGS 

FM 

FORMFLAG 

GET3LK 

GET3UFF 


00 0 05 

fl0 0 0"3“ 
00 0 0 0 
0400 Q 


-0JUUL2- 
0400 3 


006Q6P 
0001 3 

00 00 4 . 

00037 

.00 00 OF- 

0 777 3 
07774 
00006 
00577P 


006 0 IP 
0 0 621P 


HTPLOT 

HTPTP 

HTPUN 

HT RAF. 

HTTASK 

HT TTY. 

H TTV 
II 

IMPURE 


..10BOUND 

ISF3LKS 
.LOG.-. 

* LOWHOUR 

* LP 

—.LPREC .- 

LPT A 3 


“€*8-0-3-7“ 

00015 
00 0 0 3 
00012 
0 0 01 3 

J.BJUI&. 

00 011 

-0000 0 


LOB UIP 


241+12 

241+13 

19 

—20 

71 

563 

.561 

21 

-- -22 

88 

22 + 1 

—.76 

87 

78 


---215. 

234 
310 
—321- 
348 
323 

.205. 

48 9 
241+10 
241+1 
441 
—"171"' 


0 0 0 7-2 P 
00115P 
U0215P 
0 0 230 P 
00256P 
00232P 
00060P 
0 0 4 77 P 
00136P 
Q0125P 
00423P 
00U17P 
0 0 0 21P 
0 0 6 0 4 P 
0 0 0 64 P 
00146P 
0 047- 5 F- 


434+1 0Q412P 


592 

616 

.77 

90 

L0-5-+-1- 

74 

75 
90 

56 0 
24 + 2 
£2 + 2 
2 4 + 1 


¥ 

¥ 

GIV3UFFP“ 
HIGHHOUR 
-HSILOC.—. 

x ■ 

..x....-. 

.27. 

2 8= 

.2-9. 


HSITA8 

X 

2 9 


HSITA8L 

X 

■ 2 9 

* 

HTCR 

. 000 0 4.. 

20 8 


HTFILE 

0 0 0 0 1 

205 

* 

HTLP 

00 00 2 

' 206 

A*. 

HI.MASK 

.00 017. 

.2T9. 

# 

HTMAX 

0001 6 

218 


HTMSF.. 

... 0 0 014. 

........ 2l£ 

. 

HTMT 

0000 5 

20 9 


HT NULL 

00 010 

212 . 


000Q6P 

000Q0P 

0 0 335P' 

00366P 

OOOQOP- 

00124P 

Q0165P 

0S226P 

0 0 6 21P 

0 G236P 


-a oo. oof. 

00025P 
0G430P 
00007P 
006Q2P 
00356P 
0 0 3 3 3 P 
00342P 
0Q547P 
00Q27P 
00116P 
030 00 P- 
00102P 
0 0 0 41P 
W4T3’F~ 


309 QQ214P 
306 QQ211P 


240 

— 1±±1 . 

173 
44 6 

. —1&3~ 

561 

417+1 

4 0 8+ 1 

.-5-3-4- 

18 0 


0 0 0 0 1 


448 00432P 
231—O0112P- 
516 0052&P 
557 00574P 

177 0 0 0 24P. 

360 0 0 270 P 
. 3 0 0 0 00 P 


•2fr2-ti-0-l~5'3*F- 

169 0 0015P 


253 00142P 
501 00512P 


241 + 4 U0130P 
316 00223P 
7 OOOOOP 
-'351.00 2 57 P 


00Q 07P 
00104P 
00340P 
003 75 P 

001 43 P 
00171P 
00237 P 
00254P 
Q0254P 

0 0 4 3 5 P 
00 315 P 
00101P 
0 0 5 64 P 

00&02P 
00 3 61P 


450 + 1 
-3-Z7-±4- 
222 
547 

562 

417+4 


408 + 4 003 45P 
.181 00 0 30 P 


•-241 +13'~ 0 0± 41 P - 
516 00526P 
558 005 75 P 

.450 G0434P 

406 00337P 


396.0 0325P 


"CD 


355 00263P.. 393 00322P.397 00326P 

505 00516P 


■450 + 5-0 0 441P--458 00444F ——— 

208 00063P 224 00103P 

“ 374 0 03 06P 521. 0 05 3 3P .5 43 0 05 6 OP 


48800476P 




236 0Q117P 361 00271P 364 00274P 368 00300P ..Cl 

406 06341P . 412 003 5 IP ...417 0 035 5P .419 0 0 363P — 

503 00514P 506 00517P 538 00553P 

261 . GQ152P """263 . 00154P . . 2 68 . 0 016 IP . 270 . 0 0163 P . " Q 

279 00174P 282 00177P 285 00202P 305 00210P 

- 3 . ijf 1 ^ 0 . 0 , 2 . 5 . 0 „ p _______-— — .. - --* - 

_____....._._...._ O 


437" 0 Q417P...4 7 8 0 046 7P." """5 33 0 0 5 46P... O 

22 7 0 0106P ^ 


O 


O 


O 


O 


o 


o 


O 


377+1 - 0 0 3±-2F——— 4 27.0 03 7 3 P 

516 00527P 535 Q0550P 

559 00576P 560 00600F 


4 85 0 0 474P 
537 00552P 


509-00522P 
554 00573P 


o 




















































o 


_ c CD 

" °(D 

_,3 

.°o 


202 CGG55P 220 00077F 232 Q0113P 527 00540P 

553 00572P p O 

527 0 054 OP. — . 550.00567P " ... . ..' . 

536 00551P 553 00572P 

236 C0121P O 

-177.0 00 24P■ 184 OG'G'33'P''— ..187 '. 00036P 193 0 0 044P . oi 

205 0Q060P 241+4 00130F 253 Q0142P 256 0Q145P 

275 0017QP 277 00172F 278 00173P 280 00175P. iU 

~¥5m&E7V~ .360 . 0027 OF .~ .-3 66 0 0276P.369.00 3 0 IP 

397 00326F 399+1 G0321P 405 00336P 406 00337P 

-42-0- 0-0-3 6 4-P--. 4 23 - GO367F . 42-8 0-0-374P . 429 + 1 0-0-3 76P.-■ l. 

450 00434P 450+5 00441F 458 00444P 469 00456P O 

475 00464P 476 Q0465F 477 00466P 488 00476P 

' 492 -0 05 02P- —... 5'01-00512 P- 5"05~0'O'516'P .*-” 540 . 0’0*555'P~— 


o 

o 


/ _ \ 

. 423 0 0367 P 

.4 05. GG336P .540.0 055 5P... O 

^?*~3--frraieP-3-7-7+-8• 00321F ~~ 450*2 0Q436P - " .. 

. ...442 . 00424P ..._......_____............. O 


o 


____:_____...__.____O 

. 365 0 0275P --——— ----------—.-— 


538 00553P ^ 

196 QD0 47P. . 548. Q036 5P. ; ..... 

‘ .^...~.;........"...~.............“..“ O 

5 51 .0 0 5 7 0 P .....................:._..._... _Xa . „„ 

327 00235P 477 00466F 549 00566P O 

480 CQ471P 

....'__;....... / .' F ' ■ ' > .O 


o 














































SSEMQLER/0S3 VI.U 09/21/74 2233 


.UUSFjLKS .00U06 .*. 99. 

UDSRCH 00522P 509 

-. UDSRCH 01---0 0G-4-4P-.-.193. 

UDSRCH 02 G0047P 196 

UDSRCH 03 00U55P 202 

U DSRC H O4 0 0 0 5 6P 2 0 3 

UDSRCH05 00322P 392 

UDSRCH06 00432P 448 

.UDSRCH 07..0 U 47 4P.“.48 4 

UDSRCH 03 0 0 51IP 500 

.UDSRCH 09.0 0 512P --501 

UDSRCH10 0053 OP 518 

UDSRCH11 0 0 5 5 3P 538 

.UDSRCHX5..0 U 43 IP 447 

UDSRCHX7 00475P 486 

UDSRCHZ5 00355P 416 

.UD TIME...00 00 7...‘ ' 10 0 

UUTIMLIM 00002 95 

.-UDXPF -.0 0112P -2-34- 

USERDIR X 66 

* USRNUM X 67 

WCTIME X ..—.&8™ 

WPF3 01000 32 

WRITE X 69 

xi..*..mnrorr..11. 


X2 00002 84 


X 3.-.-.-.-.-.0 0-0 0-3.—— „,„8-S 


XL OG — ■ 0 0-02-3P-- —±-7E- 

XREQEND X 70 

ZLIST X 71 

ZLOC .... X'~ .. TZ 


PAGE 3 ACCOUNTS 


361 
356 
.18 5 

00271P 

0 0264P 

0 GO 34 P. 

. 364 

398 

00274P. 

0 0 3 27 P 

188 

191 

0 G 0 37 P 

0 0 0 42 P 



4/9 

204 

494 

0047UP 

0 00 57P 
00504P 



376 
523 
.5 n ft. 

0G310P 
0G535P 
- 0-0-5 21 P. 

430 + 3 

0 0 4 05 P 

545 

504 

005&2P 

0 0 515 P 



2 U 7 
415 
410 

U GO 62F 

0 0354P 

0 0347P 

43 0 + 6 

00410 P 

.368 

407 

0 Go OO P. 

G0340P 

Q 0 1 (10 P. 

4 06 
412 

00341P. 

00 3 51 P 

524 

0 0536P 



- 259 

214 

226 

0 015u P . 

0 0 0 71P 
00105P 

233 

352 

00114P 

0 0 2 6 0 P 

.159 

185 
..233 

mnnraF. 

0 0 0 3 4 P 
.Q Q114 R 

161 

194 

..236. 

.000 05P. 

00 0 45 P 
.001-17P_ 

241 + 9 
270 
• • • ••? I: n 

y 0135P 
0D1&3P 

ft 

241+13 

272 

— — 3-frC~ 

00141P 

00165 P 


auu uucuor oup uucxur 

341 0 0250P 343 00251P 

377+4 G0315P 377+6 00317P 

. 4I^¥ITJ5rP 4I4~I0TE3P" 

450+3 0C437P 465 Q0452P 

n n n n c n n sr n n n n tr -a a 


. ft-’S-O- 

168 

195 

-u-u-o-u-o- r - 

G0014P 

00046P 

-. p-u-u~ 

169 

196 

-U-U-S-i-i-F-- 

00015P 
000 47 P 

' 2 6 2 * 
301 
35 2 

0 O'i 5 o P ’ 

0 02 04P 

0 0 260 P 

'26 4 
319 
375 

uul55P. 

Q0226P 
303 07 P 

44 0 
467 

8 0 4 22 F 

0 0 4 5 4 P 
. Q-QJLa.£LP. : . 

444 
522 
__244- 

00426P 

0 0 5 3 4 P 
, na n fecD_ 

.... 

316 

523 

.16 0 ' 

182 
47 0 

00223P 

0 0 5 3 5 P 
Con04P 

0 0 0 31 P 

0 0 457 P 

331 

531 

0 0 2 4 0 P 

0 0 5 -4 4 P 

"imr 

TJW6TP 




404.00335P 

542 0 0557P 


434+3.00414P 


500 

375 

0Q511P 

Q0307P 

530 

0G543F 



162 

213 

.244. 

0 0 0 0 6 P 

0 00 70 P 
.GGt24F. 

.163 

214 
.2 41+1- 

.00Q07F. 

0007 IP 
.0 0-42-5 F-. 

173 
219 
_244 + 3 

.0 0021P. 

00076P 

0 0427 P. 

254 

276 

Q0143P 

0 0171P 

261 

279 

0 015 2 P 

0 017 4 F 

263 

282 

00154P 

00177P 

306 

361 

377+7 

0 0211P 
00271P 
Q0320P 

~~~~34'2“ 

364 

404 

0U217P 
0G274P 
00335P 

."3'26 _ 

368 
4 07 

0 0234P 

0 0 3 0 OP 
00340P 

468 

. S4& . 

ao355P . 

00455P 
0G5-17P.- 

419 

470 

. ..___. _c^.n_. 

00363P “ 
Q0457P 
-0 0 5 4 3P.-. 

.422- 

473 

60366P 

00462P 

172 

210 

CQ020P 

G0065P 

174 

218 

...,, er 

0G022P 

0 0 0 75F 

.182 

226 

,.... o c. rv 

0 0 0 3IP. 

00105P 

265 

325 

399+4 

y0456P 
00233P 
QQ334P 

267 

3 2° 
408+3 

0 016 0 P 
00236F 
QG344P 

346 

.417+3 

U u 1 o c P 

0 0 2 5 4 P 
.0 0 36 OP . 

~VST 

. BITTOF . 

462 

00447P . 

464 

u 0 4 51P 


.183 00032P 

228 00107P 
241+800134P 
268 00161P 
285 00202P 
330GQ237P 
377+3 00314P 
408 00341P 
429 00375P 
485 00474P 

18600035P 
241+5 00131P 
271 00164P 
348 00256P 
438 00420P 
. 466 QQ453P 


229 OOilGP 
332 QQ241P 
532 00545P 


34-3 .002 2 OF 

353 0Q261P 
548 00565P 


■3-14 0 0■ 2-2-1P 
376 00310P 


315 GO 222P 
481 00472P 


















































